home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / INTEGER.P < prev    next >
Text File  |  1990-09-13  |  4KB  |  150 lines
  1. temp <- <primitive 110 32 >
  2. <primitive 112 temp 1        " timesRepeat: " \
  3.     #( #[ 80 114 34 32 199 247 11 33 165 242 34 81 192 241 114 \
  4.  242 249 16 242 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " rem: " \
  8.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 29 248 4 242 \
  9.  32 10 35 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " radix: " \
  13.     #( #[ 32 33 250 2 26 243 245] \
  14.     #(  ) ) >
  15.  
  16. <primitive 112 temp 4        " quo: " \
  17.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 28 248 4 242 \
  18.  32 10 35 243 245] \
  19.     #(  ) ) >
  20.  
  21. <primitive 112 temp 5        " odd " \
  22.     #( #[ 32 82 205 80 202 243 245] \
  23.     #(  ) ) >
  24.  
  25. <primitive 112 temp 6        " noMask: " \
  26.     #( #[ 80 32 33 197 201 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 7        " lcm: " \
  30.     #( #[ 32 33 250 2 6 247 10 32 33 194 32 33 11 27 206 \
  31.  248 4 242 32 10 35 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 8        " highBit " \
  35.     #( #[ 32 250 1 34 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 9        " gcd: " \
  39.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 20 248 4 242 \
  40.  32 10 35 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " factorial " \
  44.     #( #[ 32 250 1 38 243 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 112 temp 11        " even " \
  48.     #( #[ 32 82 205 80 201 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 12        " bitXor: " \
  52.     #( #[ 32 33 250 2 24 243 245] \
  53.     #(  ) ) >
  54.  
  55. <primitive 112 temp 13        " bitShift: " \
  56.     #( #[ 32 33 250 2 25 243 245] \
  57.     #(  ) ) >
  58.  
  59. <primitive 112 temp 14        " bitOr: " \
  60.     #( #[ 32 33 250 2 22 243 245] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 15        " bitInvert " \
  64.     #( #[ 32 250 1 33 243 245] \
  65.     #(  ) ) >
  66.  
  67. <primitive 112 temp 16        " bitAt: " \
  68.     #( #[ 32 33 250 2 21 243 245] \
  69.     #(  ) ) >
  70.  
  71. <primitive 112 temp 17        " bitAnd: " \
  72.     #( #[ 32 33 250 2 23 243 245] \
  73.     #(  ) ) >
  74.  
  75. <primitive 112 temp 18        " asString " \
  76.     #( #[ 32 250 1 37 243 245] \
  77.     #(  ) ) >
  78.  
  79. <primitive 112 temp 19        " asInteger " \
  80.     #( #[ 32 243 245] \
  81.     #(  ) ) >
  82.  
  83. <primitive 112 temp 20        " asFloat " \
  84.     #( #[ 32 250 1 39 243 245] \
  85.     #(  ) ) >
  86.  
  87. <primitive 112 temp 21        " asCharacter " \
  88.     #( #[ 32 250 1 36 243 245] \
  89.     #(  ) ) >
  90.  
  91. <primitive 112 temp 22        " anyMask: " \
  92.     #( #[ 80 32 33 250 2 23 202 243 245] \
  93.     #(  ) ) >
  94.  
  95. <primitive 112 temp 23        " allMask: " \
  96.     #( #[ 33 32 33 250 2 23 201 243 245] \
  97.     #(  ) ) >
  98.  
  99. <primitive 112 temp 24        " \\ " \
  100.     #( #[ 32 33 250 2 6 247 18 32 32 80 199 247 3 90 248 \
  101.  2 242 81 194 114 34 33 205 248 4 242 32 10 35 243 \
  102.  245] \
  103.     #(  ) ) >
  104.  
  105. <primitive 112 temp 25        " // " \
  106.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 19 248 4 242 \
  107.  32 10 35 243 245] \
  108.     #(  ) ) >
  109.  
  110. <primitive 112 temp 26        " / " \
  111.     #( #[ 32 175 33 190 243 245] \
  112.     #(  ) ) >
  113.  
  114. <primitive 112 temp 27        " * " \
  115.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 18 248 5 242 \
  116.  32 33 145 0 243 245] \
  117.     #( #*  ) ) >
  118.  
  119. <primitive 112 temp 28        " - " \
  120.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 11 248 5 242 \
  121.  32 33 145 0 243 245] \
  122.     #( #-  ) ) >
  123.  
  124. <primitive 112 temp 29        " + " \
  125.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 10 248 5 242 \
  126.  32 33 145 0 243 245] \
  127.     #( #+  ) ) >
  128.  
  129. <primitive 112 temp 30        " < " \
  130.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 12 248 5 242 \
  131.  32 33 145 0 243 245] \
  132.     #( #<  ) ) >
  133.  
  134. <primitive 112 temp 31        " > " \
  135.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 13 248 5 242 \
  136.  32 33 145 0 243 245] \
  137.     #( #>  ) ) >
  138.  
  139. <primitive 112 temp 32        " = " \
  140.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 16 248 5 242 \
  141.  32 33 145 0 243 245] \
  142.     #( #=  ) ) >
  143.  
  144. <primitive 98 #Integer \
  145.     <primitive 97 #Integer #Number #\smalltlk\prelude\integer.st \
  146.     #(  ) \
  147.     #( #timesRepeat: #rem: #radix: #quo: #odd #noMask: #lcm: #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd: #asString #asInteger #asFloat #asCharacter #anyMask: #allMask: #\\ #// #/ #* #- #+ #< #> #=  ) \
  148.     temp 3 5 > >
  149.  
  150.